home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 236
/
236.d81
/
b.manners quiz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
747b
|
30 lines
5 d=peek(186):ifd<8thend=8
10 gosub41000
15 p$="quiz.pkd"
20 print"[144]loadp$,d":print"run"
60 poke631,13:poke632,13:poke198,2:end
10999 end
41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
41002 poke214,14:print
41004 printtab(1)"[155] "
41005 forx=1to6
41006 printtab(1)"[152] "
41007 next
41013 printtab(1)"[151] "
41015 gosub60008:n2$="manners "+n$:poke214,16:print
41016 n1$="":forx=1tolen(n2$):n1$=n1$+chr$(128+asc(mid$(n2$,x))):next
41019 printtab(19-len(n2$)/2)"[152]"n1$
41020 forx=2to4:reada$:poke214,15+x:print
41022 printtab(19-len(a$)/2)"[152]"a$
41024 next
41030 t=ti+60
41031 ift>tithen41031
41032 print"":return
41051 data"by [196]ave [205]oorman
41052 [131]"(c) 2004 by mid$ & asc (NULL)ublishing, right$nc.
41053 data"www.eloadstar.com
60000 d[178][194](186):[141]60008:n$[178]"manners "[170]n$
60001 [159]1,d,15,"i0":[152]1,"s0:b."[170]n$:[160]1:[148]"b."[170]n$,d:[128]
60008 n$[178]"quiz"
60009 [142]